home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 2 / AACD 2.iso / AACD / Programming / NRCOBOL1g / COBFILES / HELLO5.COB < prev    next >
Encoding:
Text File  |  1999-03-01  |  2.0 KB  |  72 lines
  1.       * ROUTINE TO DISPLAY A MULTIPLICATION GRID.                      
  2.        IDENTIFICATION DIVISION.
  3.        PROGRAM-ID.  HELLO5.
  4.        AUTHOR.  cHArRiOTt.
  5.       * 
  6.        ENVIRONMENT DIVISION.
  7.       *
  8.        DATA DIVISION.
  9.        WORKING-STORAGE SECTION.
  10.        01  X-SCREEN-DFT    PIC 99 VALUE  10.
  11.        01  Y-SCREEN-DFT    PIC 99 VALUE  5.
  12.        01  Y-ROW           PIC 99.
  13.        01  X-COLUMN        PIC 99.
  14.        01  X-POS           PIC 99.
  15.        01  Y-POS           PIC 99.
  16.        01  XY-PRODUCT      PIC 9(3).
  17.        78  CON-8    VALUE 606.
  18.        78  CON-7    VALUE 66.
  19.  
  20.       *
  21.       *  
  22.        PROCEDURE DIVISION.
  23.        001-MAIN.
  24.            DISPLAY (1 , 10)
  25.            "Routine to CALCULATE and DISPLAY a MULTIPLICATION TABLE".
  26.            MOVE ZEROS TO Y-ROW.
  27.            PERFORM 002-ROWS
  28.                VARYING Y-ROW FROM 1 BY 1 UNTIL Y-ROW > 10.
  29.            STOP RUN.
  30.       *
  31.       *
  32.       $SET CONSTANT CON-9 con-8
  33.       $if con-9  > 99
  34.        002-ROWS.
  35.            MOVE ZEROS TO X-COLUMN.
  36.            PERFORM 003-COLUMNS
  37.                VARYING X-COLUMN FROM 1 BY 1 UNTIL X-COLUMN > 10.
  38.       $if con-7 defined
  39.            display (22 , 30) "AOK!".
  40.       $END-IF
  41.       *
  42.       $else
  43.        002-ROWS.
  44.            MOVE ZEROS TO X-COLUMN.
  45.            PERFORM 003-COLUMNS
  46.                VARYING X-COLUMN FROM 1 BY 1 UNTIL X-COLUMN > 5.
  47.       $end
  48.       *
  49.       *
  50.        003-COLUMNS.
  51.            MOVE ZEROS TO X-POS.
  52.            MULTIPLY X-COLUMN BY 5 GIVING  X-POS.
  53.            ADD X-SCREEN-DFT TO X-POS.
  54.       * 
  55.            MOVE ZEROS TO Y-POS.
  56.            MOVE Y-ROW TO Y-POS.
  57.            ADD Y-SCREEN-DFT TO Y-POS.
  58.       *
  59.            MULTIPLY Y-ROW BY X-COLUMN 
  60.                           GIVING    XY-PRODUCT.
  61.            PERFORM 004-DISPLAY-PRODUCT.
  62.       *     ADD 1 TO X-COLUMN.
  63.       *
  64.       *                                                                
  65.        004-DISPLAY-PRODUCT.
  66.            MOVE Y-POS  TO LIN.
  67.            MOVE X-POS  TO COL.
  68.            DISPLAY (LIN , COL) XY-PRODUCT.
  69.       *
  70.       *
  71.       *****END*******************************************Š   
  72.